home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 1 / Cream of the Crop 1.iso / PRINTER / MEXLAS.ARJ / TXPATTER.PRG < prev    next >
Text File  |  1991-09-01  |  979b  |  34 lines
  1. *:*********************************************************************
  2. *:
  3. *:   Program file: TXPATTERNBAR.PRG
  4. *:
  5. *:         System: Texas Associated Software Laser Library
  6. *:         Author: Jose E. Lopez, Jr.
  7. *:      Copyright (c) 1991, Texas Associated Software - Red Oak, TX
  8. *:
  9. *:*********************************************************************
  10.  
  11. txinit(_print_port)
  12. txreset()
  13. txpagesize("letter")
  14. txorient("P")
  15. txsetlpi(6)
  16.  
  17. txpatternbar(01, 10, 20, 15, 1, .t.)
  18. txcolprint(17, 12, .f., "Fill Pattern 1")
  19. txpatternbar(01, 50, 20, 15, 2, .t.)
  20. txcolprint(17, 52, .f., "Fill Pattern 2")
  21. txpatternbar(21, 10, 20, 15, 3, .t.)
  22. txcolprint(37, 12, .f., "Fill Pattern 3")
  23. txpatternbar(21, 50, 20, 15, 4, .t.)
  24. txcolprint(37, 52, .f., "Fill Pattern 4")
  25. txpatternbar(41, 10, 20, 15, 5, .t.)
  26. txcolprint(57, 12, .f., "Fill Pattern 5")
  27. txpatternbar(41, 50, 20, 15, 6, .t.)
  28. txcolprint(57, 52, .f., "Fill Pattern 6")
  29.  
  30. txclear()
  31.  
  32.  
  33. *: EOF: TXPATTERNBAR.PRG
  34.